home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / coerce / coerce.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  561 b   |  22 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3150
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   3555
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3150
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16. Sub Form_Click ()
  17.   f$ = "###,###.0000"
  18.   Test@ = 67812345.6789
  19.   Temp@ = Coerce(Test@, 2)
  20.   Print Format$(Test@, f$)
  21. End Sub
  22.